object EditForm: TEditForm Left = 239 Top = 179 Width = 435 Height = 300 Caption = 'WPRichText' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] PixelsPerInch = 96 TextHeight = 16 object WPToolBar1: TWPToolBar Left = 0 Top = 0 Width = 427 Height = 56 Align = alTop ParentShowHint = False ShowHint = True BevelInner = bvRaised BevelOuter = bvNone sel_ListBoxes = [SelFontName, SelFontSize, SelFontColor, SelBackgroundColor] sel_StatusIcons = [SelNormal, SelBold, SelItalic, SelUnder, SelHyperLink, SelStrikeOut, SelLeft, SelRight, SelBlock, SelCenter] sel_ActionIcons = [SelExit, SelOpen, SelSave, SelPrint, SelPrintSetup] sel_DatabaseIcons = [] sel_EditIcons = [SelCopy, SelCut, SelPaste, SelSelAll, SelHideSel, SelFind, SelReplace] FontSizeFrom = 8 OnIconSelection = WPToolBar1IconSelection Hints.Strings = ( 'WPI_Normal=Normal' 'WPI_Bold=Bold' 'WPI_Italic=Italic' 'WPI_Under=Underlined' 'WPI_Hyperlink=Hyperlink' 'WPI_StrikeOut=Strikeout' 'WPI_Left=Left aligned' 'WPI_Right=Right aligned' 'WPI_Justified=Justified text' 'WPI_Center=Centered text' 'WPI_Copy=Copy to clipboard' 'WPI_Cut=Cut to Clibboard' 'WPI_Paste=Paste from clipboard' 'WPI_SelAll=Select all' 'WPI_HideSel=Hide selection' 'WPI_Find=Find text' 'WPI_Replace=Find and replace' '' 'WPI_Spell=Call spellcheck' 'WPI_Exit=transfer changes to transparent label' 'WPI_New=New file' 'WPI_Open=Open file' 'WPI_Save=Save file' 'WPI_Close=Close file' 'WPI_Print=Print Document' 'WPI_PrintSetup=Printer Setup' 'WPI_Next=Next record' 'WPI_Prev=Previous record' 'WPI_Add=Add record' 'WPI_Del=Delete record' 'WPI_Edit=Edit record' 'WPI_Cancel=Cancel changings' 'WPI_ToStart=Beginning of dataset' 'WPI_ToEnd=End of dataset' 'WPI_Post=Modify dataset') end object WPRuler1: TWPRuler Top = 56 Width = 427 Align = alTop ShowAllTabPos = False end object WPRichText1: TWPRichText Left = 0 Top = 72 Width = 427 Height = 201 Cursor = crIBeam Language = twpGerman WPToolBar = WPToolBar1 WPRuler = WPRuler1 ReadOnly = False HyperLinkCursor = crDefault NoBlockMarking = False OneClickHyperlink = False Zooming = 100 Resizing = 100 Align = alClient BorderStyle = bsSingle Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentColor = False ScrollBars = ssBoth TabOrder = 2 TabStop = True WantTabs = True end end